# This script sets up directory paths

setwd("/Users/zach/Dropbox/Research/UBP/estimation/replication")
base_dir  <- getwd()
dat_dir   <- file.path(base_dir, "data")
fig_dir   <- file.path(base_dir, "figures")
input_dir <- file.path(base_dir, "inputs")
res_dir   <- file.path(base_dir, "results")

for (d in c(dat_dir, fig_dir, input_dir, res_dir)) {
  if (!dir.exists(d)) dir.create(d, recursive = TRUE, showWarnings = FALSE)
}

message("Replication root: ", base_dir)
